home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / animat.com / ANIMAT.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-06-03  |  24.0 KB  |  890 lines
  1.  
  2.     SCREEN 7
  3.     COLOR 9, 0
  4.     LOCATE 5, 7
  5.     PRINT "CREATED BY: SCOTT ROEPENACK"
  6.     LOCATE 16, 8
  7.     PRINT "THE ADVENTURES OF SAD SAM "
  8.     CIRCLE (160, 130), 120, , , , .5
  9.     SLEEP (5)
  10.     SCREEN 12
  11.     COLOR 7
  12.     LINE (0, 0)-(640, 475), 4, BF
  13.     LET PI = 3.14159
  14.     LINE (175, 75)-(470, 10), 10, BF
  15.     LOCATE 2, 28
  16.     PRINT "THE ADVENTURES OF SAD SAM"
  17.     LINE (10, 100)-(630, 450), 2, BF
  18.     PLAY "L20N13N14N15N16N17N17N16N15N14N13N12N11N11"
  19.     PLAY "L20N13N14N15N16N17N17N16N15N14N13N12N11N11"
  20.     PLAY "L20N13N14N15N16N17N17N16N15N14N13N12N11N11"
  21.     LINE (10, 100)-(630, 450), 0, BF
  22.     LINE (10, 100)-(630, 450), 5, B
  23.     CIRCLE (320, 410), 70, 3, 0, PI                  '"SHOULDER
  24.     CIRCLE (320, 330), 12, 3                         '"BODY
  25.     CIRCLE (320, 229), 90, 3, , , 1.5                '"HEAD
  26.     CIRCLE (360, 210), 25, 8, , , 1.5                '"REYE
  27.     CIRCLE (360, 210), 10, 9                         'REYEMID
  28.     CIRCLE (395, 230), 12, 3                         '"NOSE
  29.     CIRCLE (353, 290), 15, 4, .7, PI                 'MOUTH
  30.     PLAY "N1N2N3N1N2N3N1N2N3N1N2N3"
  31.     SLEEP (2)
  32.   SCREEN 7
  33.   COLOR 4, 0
  34.   VIEW (1, 1)-(318, 198), 0, 9
  35.   WINDOW SCREEN (1, 1)-(100, 100)
  36.   LET PI = 3.14159
  37.  
  38. 'CLOUD
  39.   CIRCLE (50, 10), 1, 7
  40.   PAINT (50, 10), 7
  41.   CIRCLE (52, 10), .5, 7
  42.   PAINT (52, 10), 7
  43.   CIRCLE (48.5, 10), .3, 7
  44.   PAINT (48.5, 10), 7
  45.   
  46. 'CLOUD
  47.   CIRCLE (30, 15), .9, 7
  48.   PAINT (30, 15), 7
  49.   CIRCLE (28.5, 15), .3, 7
  50.   PAINT (28.5, 15), 7
  51.   CIRCLE (31.9, 15), .4, 7
  52.   PAINT (31.9, 15), 7
  53.   
  54.   LINE (1.5, 65)-(99, 90), 2, BF    '] GRASS PAINT
  55.   LINE (1.5, 91)-(99, 99), 8, BF    '] ROAD
  56.   LET XB1 = 1.7
  57.   LET YB1 = 63
  58.   LET XEB1 = 1.7
  59.   LET YEB1 = 66
  60.   FOR COUNT = 1 TO 109
  61.   LINE (XB1, YB1)-(XEB1, YEB1), 10
  62.   LET XB1 = XB1 + .9
  63.   LET XEB1 = XEB1 + .9
  64.   NEXT COUNT
  65.  
  66.   LET XB2 = 1.7                     '] FRONT GRASS
  67.   LET YB2 = 89
  68.   LET XEB2 = 1.7
  69.   LET YEB2 = 91
  70.   FOR COUNT = 1 TO 109
  71.   LINE (XB2, YB2)-(XEB2, YEB2), 10
  72.   LET XB2 = XB2 + .9
  73.   LET XEB2 = XEB2 + .9
  74.   NEXT COUNT
  75.  
  76.   CIRCLE (80, 30), 15, 2              '] tree
  77.   PAINT (80, 30), 2                   ']
  78.   LINE (77.5, 46)-(82.5, 86), 6, BF   ']
  79.   CIRCLE (79, 59), 2, 0, , , 1.5
  80.   CIRCLE (79, 59), 1.4, 0, , , 1.5
  81.   CIRCLE (79, 59), .7, 0, , , 1.5
  82.  
  83.   LINE (25, 60)-(51, 68), 6, BF       '] bench
  84.   LINE (51.5, 60)-(53, 68), 6, BF     ']
  85.   LINE (22, 75)-(24, 86), 6, BF       ']
  86.   LINE (26, 75)-(28, 80), 6, BF       ']
  87.                                       ']
  88.   LINE (48, 75)-(49.7, 86), 6, BF     ']
  89.   LINE (51.5, 66)-(53, 80), 6, BF     ']
  90.  
  91.   CIRCLE (32.2, 44.8), 2, 14, 0, PI * .8     '] HAIR
  92.   CIRCLE (34, 45), .5, 14, , , .5            ']
  93.  
  94.   CIRCLE (34, 51), 3, 5, , , 1.5             '] HEAD
  95.   CIRCLE (33, 51), 2, 5, PI * 1.5, PI * 1.7  '] MOUTH
  96.   CIRCLE (31, 50), 1, 5, , , 1.3             '] NOSE
  97.   PAINT (31, 50), 5                          ']
  98.   CIRCLE (33, 48), 1, 5, , , 1.3             '] OEYE
  99.   CIRCLE (32.7, 48.5), .1, 14, , , 1.5       '] EYE
  100.   CIRCLE (30, 58), 2, 5, , , .5              '] L ARM
  101.   PAINT (30, 58), 5
  102.   CIRCLE (28, 61), 1.6, 5, , , 1.5           '] L ARM
  103.   PAINT (28, 61), 5
  104.   CIRCLE (28, 65), 1, 9                      '] HAND
  105.   PAINT (28, 65), 9
  106.   CIRCLE (38, 58), 2, 5, , , .5              '] R ARM
  107.   PAINT (38, 58), 5
  108.   CIRCLE (41, 58), 1.6, 5, , , .5            '] R ARM
  109.   PAINT (41, 58), 5
  110.   CIRCLE (43.9, 58), 1, 9                    '] HAND
  111.   PAINT (43.9, 58), 9
  112.   
  113.   CIRCLE (34, 63), 4, 5, , , 1.5          '] BODY
  114.   PAINT (34, 63), 5                       ']
  115.  
  116.                       '{LEGS IN LOOP AFTER BENCH LOOP}
  117.   LINE (9, 47)-(10, 80), 8, BF        '] BUS POLE
  118.   LINE (3, 37)-(15.5, 47), 7, BF      '] SIGN
  119.   LOCATE 11, 3                        ']
  120.   COLOR 2                             ']
  121.   PRINT "BUS"                         ']
  122.   
  123.  
  124.   CIRCLE (20, 13), 2, 15              '] MOON
  125.   PAINT (20, 13), 15                  ']
  126.  
  127.   CIRCLE (10, 5), .2, 15              '] STARS
  128.   CIRCLE (5, 12), .1, 15              ']
  129.   CIRCLE (30, 14), .1, 15             ']
  130.   CIRCLE (45, 4), .2, 15              ']
  131.   CIRCLE (52, 10), .1, 15             ']
  132.   CIRCLE (55, 11), .1, 15             ']
  133.   CIRCLE (96, 5), .1, 15              ']
  134.  
  135.  
  136.  
  137.  
  138.   LET X = 24                          '] BENCH SEAT
  139.   LET Y = 69                          ']
  140.   LET XE = 53                         ']
  141.   LET YE = 72                         ']
  142.   FOR COUNT = 1 TO 15                 ']
  143.   LINE (X, Y)-(XE, YE), 1, BF         ']
  144.   LET X = X - .3                      ']
  145.   LET Y = Y + .2                      ']
  146.   LET XE = XE - .3                    ']
  147.   LET YE = YE + .2                    ']
  148.   NEXT COUNT                          ']
  149.  
  150.   LET XC1 = 32
  151.   LET YC1 = 68
  152.   LET XD1 = 36
  153.   LET YD1 = 68
  154.   LET S1 = 1
  155.   LET S2 = 1
  156.   FOR COUNT = 1 TO 7
  157.   CIRCLE (XC1, YC1), S1, 5
  158.   PAINT (XC1, YC1), 5
  159.   CIRCLE (XD1, YD1), S2, 5
  160.   PAINT (XD1, YD1), 5
  161.   LET XC1 = XC1 - 1
  162.   LET YC1 = YC1 + 1
  163.   LET XD1 = XD1 - 1
  164.   LET YD1 = YD1 + 1
  165.   NEXT COUNT
  166.  
  167.   CIRCLE (25, 78.5), 3, 5, , , 2.8          '[ LB LEG
  168.   PAINT (25, 78.5), 5
  169.   CIRCLE (29, 78.5), 3, 5, , , 2.8          '[ RB LEG
  170.   PAINT (29, 78.5), 5
  171.   CIRCLE (24, 83.5), 1.5, 5, , , .5
  172.   PAINT (24, 83.5), 5
  173.   CIRCLE (28.5, 83.5), 1.5, 5, , , .5
  174.   PAINT (28.5, 83.5), 5
  175.   SLEEP (6)
  176.   LOCATE 6, 5
  177.   COLOR 9
  178.   PRINT "I SURE AM HAPPY I'M GOING"
  179.   LOCATE 8, 11
  180.   PRINT "TO MANHATTEN"
  181.   SLEEP (4)
  182.  
  183. 'ERASE
  184.   CIRCLE (33, 51), 2, 0, PI * 1.5, PI * 1.7  '] MOUTH
  185.   CIRCLE (31, 50), 1, 0, , , 1.3             '] NOSE
  186.   PAINT (31, 50), 0                          ']
  187.   CIRCLE (33, 48), 1, 0, , , 1.3             '] OEYE
  188.   CIRCLE (32.7, 48.5), .1, 0, , , 1.5        '] EYE
  189.  
  190.  
  191.   CIRCLE (33.1, 48), .7, 5, , , 1.3          '] OEYE
  192.   CIRCLE (33.1, 48.5), .1, 14, , , 1.5       '] EYE
  193.   CIRCLE (35, 48), .7, 5, , , 1.3            '] OEYE
  194.   CIRCLE (35, 48.5), .1, 14, , , 1.5         '] EYE
  195.   CIRCLE (34, 51), .7, 5, , , 1.3            '] NOSE
  196.   PAINT (34, 51), 5                          ']
  197.   CIRCLE (34, 51), 2, 5, PI * 1.2, PI * 1.8  '] MOUTH
  198.   LOCATE 6, 5
  199.   PRINT "I WISH THE BUS WOULD HURRY!"
  200.   LOCATE 8, 11
  201.   PRINT "ITS GETTING LATE!"
  202.   SLEEP (4)
  203.   CIRCLE (33.1, 48), .7, 0, , , 1.3          '] OEYE
  204.   CIRCLE (33.1, 48.5), .1, 0, , , 1.5       '] EYE
  205.   CIRCLE (35, 48), .7, 0, , , 1.3            '] OEYE
  206.   CIRCLE (35, 48.5), .1, 0, , , 1.5         '] EYE
  207.   CIRCLE (34, 51), .7, 0, , , 1.3            '] NOSE
  208.   PAINT (34, 51), 0                          ']
  209.   CIRCLE (34, 51), 2, 0, PI * 1.2, PI * 1.8  '] MOUTH
  210.   CIRCLE (35, 48), .7, 5, , , 1.3            '] OEYE
  211.   CIRCLE (35, 48.5), .1, 14, , , 1.5         '] EYE
  212.   CIRCLE (37, 51), .7, 5, , , 1.3            '] NOSE
  213.   PAINT (37, 51), 5                          ']
  214.   CIRCLE (35, 51), 2, 5, PI * 1.2, PI * 1.8  '] MOUTH
  215.   LOCATE 6, 5
  216.   PRINT "BOY,ITS GETTING REALLY LATE!"
  217.   LOCATE 8, 11
  218.   PRINT "Dee Dee Doodle Dum"
  219.   SLEEP (1)
  220.   LOCATE 10, 16
  221.   COLOR 10
  222.   PRINT CHR$(14)
  223.   SLEEP (1)
  224.   LOCATE 12, 18
  225.   COLOR 3
  226.   PRINT CHR$(14)
  227.   SLEEP (1)
  228.   LOCATE 10, 20
  229.   COLOR 4
  230.   PRINT CHR$(14)
  231.   
  232. '****************************************************************************
  233.   SLEEP (6)
  234.   CLS
  235.   SCREEN 7
  236.   COLOR 4, 0
  237.   VIEW (0, 0)-(319, 199)
  238.   WINDOW SCREEN (0, 0)-(319, 199)
  239. 'DESIGN ON GREY PART OF CONSOLE CONSOLE
  240.   CIRCLE (260, 100), 3, 10, , , .5
  241.   CIRCLE (220, 94), 3, 10, , , .5
  242.   CIRCLE (70, 99), 3, 10, , , .5
  243.   CIRCLE (110, 93), 3, 10, , , .5
  244.   CIRCLE (300, 94), 3, 6, , , .5
  245.   CIRCLE (272, 84), 3, 6, , , .5
  246. 'DESIGN ON  TOP CONSOLE
  247.   CIRCLE (242, 76), 3, 6, , , .5
  248.   CIRCLE (80, 76), 3, 6, , , .5
  249.   CIRCLE (50, 84), 3, 6, , , .5
  250.   CIRCLE (20, 94), 3, 6, , , .5
  251.  
  252. ' FILL IN AROUND CONSOLE
  253.   CIRCLE (206, 67), 3, 5, , , .5
  254.   PAINT (206, 67), 5
  255.   CIRCLE (114, 67), 3, 5, , , .5
  256.   PAINT (114, 67), 5
  257.   CIRCLE (197, 66), 5, 5, , , .5
  258.   PAINT (197, 66), 5
  259.   CIRCLE (123, 66), 5, 5, , , .5
  260.   PAINT (123, 66), 5
  261.  
  262. 'CENTER PANAL
  263.   LINE (100, 78)-(220, 70), 5, BF
  264.   LINE (99, 79)-(221, 71), 2, B
  265.  
  266.  
  267. 'WINDOW CURVED SHAPE
  268.   CIRCLE (160, 110), 220, 1, , , .5   '] TOP CURVE
  269.   CIRCLE (160, 170), 220, 1, , , .5   '] BACK CONSOLE CURVE
  270.   CIRCLE (160, 188), 220, 1, , , .5   '] TOP EDGEING BLUE
  271.  
  272.   CIRCLE (160, 190), 220, 10, , , .5   '] TOP EDGEING GREEN
  273.   CIRCLE (160, 230), 220, 10, , , .5   '] BOTTOM EDGE
  274.  
  275. 'CONSOLE DESIGNS
  276.   CIRCLE (160, 100), 20, 8   '] BLEED GREY ON TO FRONT CONSOLE
  277.     PAINT (160, 100), 8, 10  ']
  278.   CIRCLE (100, 104), 20, 8
  279.     PAINT (100, 104), 8
  280.   CIRCLE (40, 118), 20, 8
  281.     PAINT (40, 118), 8
  282.   CIRCLE (-18, 138), 23, 8
  283.     PAINT (-18, 138), 8
  284.   CIRCLE (222, 104), 20, 8
  285.     PAINT (222, 104), 8
  286.   CIRCLE (280, 118), 20, 8
  287.     PAINT (280, 118), 8
  288.   CIRCLE (332, 138), 22, 8
  289.     PAINT (332, 138), 8
  290.  
  291.  
  292.   CIRCLE (160, 40), 55, 1, , , .5   '] SPACE SHIP WINDOW
  293.   CIRCLE (160, 40), 50, 10, , , .5  '] WINDOW
  294.   CIRCLE (160, 40), 46, 0, , , .5   '] FILL WINDOW BLACK
  295.   PAINT (160, 40), 0                ']
  296.  
  297. 'CLOUD
  298.   CIRCLE (130, 40), 4, 7
  299.   PAINT (130, 40), 7
  300.   CIRCLE (136, 40), 1, 7
  301.   PAINT (136, 40), 7
  302.   CIRCLE (124, 40), 2, 7
  303.   PAINT (124, 40), 7
  304.  
  305. 'CLOUD
  306.   CIRCLE (175, 30), 4, 7
  307.   PAINT (175, 30), 7
  308.   CIRCLE (169, 30), 1, 7
  309.   PAINT (169, 30), 7
  310.   CIRCLE (181, 30), 2, 7
  311.   PAINT (181, 30), 7
  312.  
  313. 'CLOUD
  314.   CIRCLE (190, 53), 4, 7
  315.   PAINT (190, 53), 7
  316.   CIRCLE (184, 53), 1, 7
  317.   PAINT (184, 53), 7
  318.   CIRCLE (196, 53), 1, 7
  319.   PAINT (196, 53), 7
  320.  
  321.  
  322.  
  323.   CIRCLE (110, 74), 1, 10
  324.   CIRCLE (120, 74), 1, 10
  325.   CIRCLE (130, 74), 1, 10
  326.   CIRCLE (140, 74), 1, 10
  327.   CIRCLE (150, 74), 1, 10
  328.   CIRCLE (160, 74), 1, 10
  329.   CIRCLE (170, 74), 1, 10
  330.   CIRCLE (180, 74), 1, 10
  331.   CIRCLE (190, 74), 1, 10
  332.   CIRCLE (200, 74), 1, 10
  333.   CIRCLE (210, 74), 1, 10
  334.  
  335.  
  336.  
  337. 'CENTER ISLEWAY
  338.   SCREEN 7
  339.   LET X = 177
  340.   LET Y = 85
  341.   LET XE = 189
  342.   LET YE = 147
  343.   LET COLR = 1
  344.   LET X1 = 150
  345.   LET Y1 = 126
  346.   LET XE1 = 170
  347.   LET YE1 = 145
  348.   LET COLR1 = 1
  349.   LET X2 = 139
  350.   LET Y2 = 85
  351.   LET XE2 = 145
  352.   LET YE2 = 145
  353.   FOR COUNT = 1 TO 100
  354.   LINE (X, Y)-(XE, YE), COLR, B
  355.   LINE (X1, Y1)-(XE1, YE1), COLR1, B
  356.   LINE (X2, Y2)-(XE2, YE2), COLR, B
  357.   LET COLR = COLR + .1
  358.   LET COLR = COLR + .1
  359.   LET X1 = X1 + .9
  360.   LET Y1 = Y1 + .8
  361.   LET XE1 = XE1 - .8
  362.   LET YE1 = YE1 + .8
  363.   LET X = X + .8
  364.   LET Y = Y + .8
  365.   LET XE = XE + .8
  366.   LET YE = YE + .8
  367.   LET X2 = X2 - .8
  368.   LET Y2 = Y2 + .8
  369.   LET XE2 = XE2 - .8
  370.   LET YE2 = YE2 + .8
  371.   NEXT COUNT
  372.  
  373.  
  374.  
  375. CIRCLE (174, 93), 1, 9            '] R HAND
  376. PAINT (174, 93), 9                ']
  377. CIRCLE (150, 88), 1, 9            '] L HAND
  378. PAINT (150, 88), 9                ']
  379.  
  380. CIRCLE (174, 98), 3, 3, , , 1.5   '} RIGHT ARM
  381. PAINT (174, 98), 3                '}
  382. CIRCLE (170, 103), 3, 3, , , .5   '}
  383. PAINT (170, 103), 3               '}
  384.  
  385. CIRCLE (150, 93), 3, 3, , , 1.5   '} LEFT ARM
  386. PAINT (150, 93), 3                '}
  387. CIRCLE (151, 101), 3, 3, , , 1.5  '}
  388. PAINT (151, 101), 3               '}
  389.  
  390. CIRCLE (160, 97), 5, 3            '] HEAD
  391. PAINT (160, 97), 3                ']
  392.  
  393. CIRCLE (160, 95), 1.8, 4, , , 1.5 '} HAIR
  394. PAINT (160, 95), 4                '}
  395.  
  396. CIRCLE (160, 110), 10, 3          '] CENTER BODY
  397. PAINT (160, 110), 3               ']
  398.  
  399. CIRCLE (155, 124), 5, 3, , , 1.5  '} RIGHT LEG
  400. PAINT (155, 124), 3               '}
  401. CIRCLE (165, 124), 5, 3, , , 1.5  '}
  402. PAINT (165, 124), 3               '}
  403.  
  404. CIRCLE (155, 135), 5, 3, , , 1.5  '} LEFT LEG
  405. PAINT (155, 135), 3               '}
  406. CIRCLE (165, 135), 5, 3, , , 1.5  '}
  407. PAINT (165, 135), 3               '}
  408.  
  409. CIRCLE (156, 144), 2.5, 3, , , .5 '] LEFT FOOT
  410. CIRCLE (166, 143), 2, 3, , , .5   '] RIGHT FOOT
  411.  
  412.  
  413. CIRCLE (160, 40), 46, 15, , , .5   '] FILL WINDOW WHITE
  414. PAINT (160, 40), 15                ']
  415.  
  416. CIRCLE (160, 40), 15, 3            '[ HEAD
  417. PAINT (160, 40), 3
  418. CIRCLE (153, 37), 4, 4             '[ L EYE
  419. PAINT (153, 37), 4
  420. CIRCLE (168, 37), 4, 4             '[ R EYE
  421. PAINT (168, 37), 4
  422. CIRCLE (160, 25), 5, 4, , , 1.5    '[ HAIR
  423. PAINT (160, 25), 4
  424. CIRCLE (160, 46), 6, 10, , , .5     '[ MOUTH
  425. PAINT (160, 46), 10
  426. CIRCLE (160, 46), 3, 0              '[ INNER MOUTH
  427. CIRCLE (154, 58), 9, 3, , , .5      '[ SHOULDER
  428. PAINT (154, 58), 3                  '[
  429. CIRCLE (166, 58), 9, 3, , , .5      '[ SHOULDER
  430. PAINT (166, 58), 3                  '[
  431. SLEEP (5)
  432. CIRCLE (160, 40), 46, 15, , , .5   '] FILL WINDOW WHITE
  433. PAINT (160, 40), 15                ']
  434. LOCATE 4, 20
  435. COLOR 10, 0
  436. PRINT "WE"
  437. LOCATE 5, 16
  438. PRINT "HAVE FOUND"
  439. LOCATE 6, 17
  440. PRINT "A HUMAN!"
  441. SLEEP (5)
  442. CIRCLE (160, 40), 46, 15, , , .5   '] FILL WINDOW WHITE
  443. PAINT (160, 40), 15                ']
  444. LOCATE 4, 16
  445. CIRCLE (160, 40), 15, 3            '[ HEAD
  446. PAINT (160, 40), 3
  447. CIRCLE (153, 37), 4, 4             '[ L EYE
  448. PAINT (153, 37), 4
  449. CIRCLE (168, 37), 4, 4             '[ R EYE
  450. PAINT (168, 37), 4
  451. CIRCLE (160, 25), 5, 4, , , 1.5    '[ HAIR
  452. PAINT (160, 25), 4
  453. CIRCLE (160, 46), 6, 10, , , .5     '[ MOUTH
  454. PAINT (160, 46), 10
  455. CIRCLE (160, 46), 3, 0              '[ INNER MOUTH
  456. CIRCLE (154, 58), 9, 3, , , .5      '[ SHOULDER
  457. PAINT (154, 58), 3                  '[
  458. CIRCLE (166, 58), 9, 3, , , .5      '[ SHOULDER
  459. PAINT (166, 58), 3                  '[
  460. SLEEP (3)
  461. CIRCLE (160, 40), 46, 15, , , .5   '] FILL WINDOW WHITE
  462. PAINT (160, 40), 15                ']
  463. PRINT "    WE    "
  464. LOCATE 5, 16
  465. PRINT "ARE  GOING"
  466. LOCATE 6, 16
  467. PRINT "  TO BEAM "
  468. LOCATE 7, 16
  469. PRINT "  HIM UP! "
  470. SLEEP (5)
  471. CIRCLE (160, 40), 46, 15, , , .5   '] FILL WINDOW WHITE
  472. PAINT (160, 40), 15                ']
  473. LOCATE 4, 16
  474. CIRCLE (160, 40), 15, 3            '[ HEAD
  475. PAINT (160, 40), 3
  476. CIRCLE (153, 37), 4, 4             '[ L EYE
  477. PAINT (153, 37), 4
  478. CIRCLE (168, 37), 4, 4             '[ R EYE
  479. PAINT (168, 37), 4
  480. CIRCLE (160, 25), 5, 4, , , 1.5    '[ HAIR
  481. PAINT (160, 25), 4
  482. CIRCLE (160, 46), 6, 10, , , .5     '[ MOUTH
  483. PAINT (160, 46), 10
  484. CIRCLE (160, 46), 3, 0              '[ INNER MOUTH
  485. CIRCLE (154, 58), 9, 3, , , .5      '[ SHOULDER
  486. PAINT (154, 58), 3                  '[
  487. CIRCLE (166, 58), 9, 3, , , .5      '[ SHOULDER
  488. PAINT (166, 58), 3                  '[
  489. SLEEP (3)
  490. CIRCLE (160, 40), 46, 0, , , .5   '] FILL WINDOW BLACK
  491. PAINT (160, 40), 0                ']
  492.  
  493. 'CLOUD
  494.   CIRCLE (130, 40), 4, 7
  495.   PAINT (130, 40), 7
  496.   CIRCLE (136, 40), 1, 7
  497.   PAINT (136, 40), 7
  498.   CIRCLE (124, 40), 2, 7
  499.   PAINT (124, 40), 7
  500.  
  501. 'CLOUD
  502.   CIRCLE (175, 30), 4, 7
  503.   PAINT (175, 30), 7
  504.   CIRCLE (169, 30), 1, 7
  505.   PAINT (169, 30), 7
  506.   CIRCLE (181, 30), 2, 7
  507.   PAINT (181, 30), 7
  508.  
  509. 'CLOUD
  510.   CIRCLE (190, 53), 4, 7
  511.   PAINT (190, 53), 7
  512.   CIRCLE (184, 53), 1, 7
  513.   PAINT (184, 53), 7
  514.   CIRCLE (196, 53), 1, 7
  515.   PAINT (196, 53), 7
  516.   
  517.    
  518.    
  519.   SCREEN 7
  520.   COLOR 4, 0
  521.   VIEW (1, 1)-(318, 198), 0, 9
  522.   WINDOW SCREEN (1, 1)-(100, 100)
  523.   LET PI = 3.14159
  524.  
  525.   LINE (1.5, 65)-(99, 90), 2, BF    '] GRASS PAINT
  526.   LINE (1.5, 91)-(99, 99), 8, BF    '] ROAD
  527.   LET XB1 = 1.7
  528.   LET YB1 = 63
  529.   LET XEB1 = 1.7
  530.   LET YEB1 = 66
  531.   FOR COUNT = 1 TO 109
  532.   LINE (XB1, YB1)-(XEB1, YEB1), 10
  533.   LET XB1 = XB1 + .9
  534.   LET XEB1 = XEB1 + .9
  535.   NEXT COUNT
  536.  
  537.   LET XB2 = 1.7                     '] FRONT GRASS
  538.   LET YB2 = 89
  539.   LET XEB2 = 1.7
  540.   LET YEB2 = 91
  541.   FOR COUNT = 1 TO 109
  542.   LINE (XB2, YB2)-(XEB2, YEB2), 10
  543.   LET XB2 = XB2 + .9
  544.   LET XEB2 = XEB2 + .9
  545.   NEXT COUNT
  546.  
  547.   CIRCLE (80, 30), 15, 2              '] tree
  548.   PAINT (80, 30), 2                   ']
  549.   LINE (77.5, 46)-(82.5, 86), 6, BF   ']
  550.   CIRCLE (79, 59), 2, 0, , , 1.5
  551.   CIRCLE (79, 59), 1.4, 0, , , 1.5
  552.   CIRCLE (79, 59), .7, 0, , , 1.5
  553.  
  554.  
  555.  
  556.  
  557.   LINE (25, 60)-(51, 68), 6, BF       '] bench
  558.   LINE (51.5, 60)-(53, 68), 6, BF     ']
  559.   LINE (22, 75)-(24, 86), 6, BF       ']
  560.   LINE (26, 75)-(28, 80), 6, BF       ']
  561.                                       ']
  562.   LINE (48, 75)-(49.7, 86), 6, BF     ']
  563.   LINE (51.5, 66)-(53, 80), 6, BF     ']
  564.  
  565.  
  566.   CIRCLE (32.2, 44.8), 2, 14, 0, PI * .8     '] HAIR
  567.   CIRCLE (34, 45), .5, 14, , , .5            ']
  568.  
  569.   CIRCLE (34, 51), 3, 5, , , 1.5             '] HEAD
  570.   CIRCLE (33, 51), 2, 5, PI * 1.5, PI * 1.7  '] MOUTH
  571.   CIRCLE (31, 50), 1, 5, , , 1.3             '] NOSE
  572.   PAINT (31, 50), 5                          ']
  573.   CIRCLE (33, 48), 1, 5, , , 1.3             '] OEYE
  574.   CIRCLE (32.7, 48.5), .1, 14, , , 1.5       '] EYE
  575.   CIRCLE (30, 58), 2, 5, , , .5              '] L ARM
  576.   PAINT (30, 58), 5
  577.   CIRCLE (28, 61), 1.6, 5, , , 1.5           '] L ARM
  578.   PAINT (28, 61), 5
  579.   CIRCLE (28, 65), 1, 9                      '] HAND
  580.   PAINT (28, 65), 9
  581.   CIRCLE (38, 58), 2, 5, , , .5              '] R ARM
  582.   PAINT (38, 58), 5
  583.   CIRCLE (41, 58), 1.6, 5, , , .5            '] R ARM
  584.   PAINT (41, 58), 5
  585.   CIRCLE (43.9, 58), 1, 9                    '] HAND
  586.   PAINT (43.9, 58), 9
  587.  
  588.   CIRCLE (34, 63), 4, 5, , , 1.5          '] BODY
  589.   PAINT (34, 63), 5                       ']
  590.  
  591.                                            '{LEGS IN LOOP AFTER BENCH LOOP}
  592.  
  593.  
  594.   LINE (9, 47)-(10, 80), 8, BF        '] BUS POLE
  595.   LINE (3, 37)-(15.5, 47), 7, BF      '] SIGN
  596.   LOCATE 11, 3                        ']
  597.   COLOR 2                             ']
  598.   PRINT "BUS"                         ']
  599.  
  600.  
  601.   CIRCLE (20, 13), 2, 15              '] MOON
  602.   PAINT (20, 13), 15                  ']
  603.  
  604.   CIRCLE (10, 5), .2, 15              '] STARS
  605.   CIRCLE (5, 12), .1, 15              ']
  606.   CIRCLE (30, 14), .1, 15             ']
  607.   CIRCLE (45, 4), .2, 15              ']
  608.   CIRCLE (52, 10), .1, 15             ']
  609.   CIRCLE (55, 11), .1, 15             ']
  610.   CIRCLE (96, 5), .1, 15              ']
  611.  
  612.  
  613.  
  614.  
  615.   LET X = 24                          '] BENCH SEAT
  616.   LET Y = 69                          ']
  617.   LET XE = 53                         ']
  618.   LET YE = 72                         ']
  619.   FOR COUNT = 1 TO 15                 ']
  620.   LINE (X, Y)-(XE, YE), 1, BF         ']
  621.   LET X = X - .3                      ']
  622.   LET Y = Y + .2                      ']
  623.   LET XE = XE - .3                    ']
  624.   LET YE = YE + .2                    ']
  625.   NEXT COUNT                          ']
  626.  
  627.   LET XC1 = 32
  628.   LET YC1 = 68
  629.   LET XD1 = 36
  630.   LET YD1 = 68
  631.   LET S1 = 1
  632.   LET S2 = 1
  633.   FOR COUNT = 1 TO 7
  634.   CIRCLE (XC1, YC1), S1, 5
  635.   PAINT (XC1, YC1), 5
  636.   CIRCLE (XD1, YD1), S2, 5
  637.   PAINT (XD1, YD1), 5
  638.   LET XC1 = XC1 - 1
  639.   LET YC1 = YC1 + 1
  640.   LET XD1 = XD1 - 1
  641.   LET YD1 = YD1 + 1
  642.   NEXT COUNT
  643.   CIRCLE (25, 78.5), 3, 5, , , 2.8          '[ LB LEG
  644.   PAINT (25, 78.5), 5
  645.   CIRCLE (29, 78.5), 3, 5, , , 2.8          '[ RB LEG
  646.   PAINT (29, 78.5), 5
  647.   CIRCLE (24, 83.5), 1.5, 5, , , .5
  648.   PAINT (24, 83.5), 5
  649.   CIRCLE (28.5, 83.5), 1.5, 5, , , .5
  650.   PAINT (28.5, 83.5), 5
  651.   SLEEP (3)
  652.   LOCATE 5, 5
  653.   COLOR 9
  654.   PRINT "AHHH, HERES THE BUS"
  655.   SLEEP (3)
  656.   LOCATE 5, 5
  657.   PRINT "HEY WAIT A MINUTE THATS"
  658.   LOCATE 7, 11
  659.   PRINT "NOT THE BUS!!!"
  660.   
  661.  
  662. 'ERASE
  663.    CIRCLE (33, 51), 2, 0, PI * 1.5, PI * 1.7  '] MOUTH
  664.    CIRCLE (31, 50), 1, 0, , , 1.3             '] NOSE
  665.    PAINT (31, 50), 0                          ']
  666.    CIRCLE (33, 48), 1, 0, , , 1.3             '] OEYE
  667.    CIRCLE (32.7, 48.5), .1, 0, , , 1.5        '] EYE
  668.   
  669.    CIRCLE (35, 48), .7, 5, , , 1.3            '] OEYE
  670.    CIRCLE (35, 48.2), .1, 14, , , 1.5         '] EYE
  671.    CIRCLE (37, 48), .7, 5, , , 1.3            '] NOSE
  672.    CIRCLE (36, 52.5), .5, 9
  673.  
  674.   
  675.    CIRCLE (28, 65), 1, 6                      '] HAND
  676.    PAINT (28, 65), 6
  677.    CIRCLE (28, 61), 1.6, 6, , , 1.5           '] L ARM
  678.    PAINT (28, 61), 6
  679.    CIRCLE (27.5, 56), 1.8, 5, , , 1.5           '] L ARM
  680.    PAINT (27.5, 56), 5
  681.    CIRCLE (27, 52), 1, 6                      '] HAND
  682.    PAINT (27, 52), 6
  683.    SLEEP (3)
  684.  
  685.  
  686.   LOCATE 5, 5
  687.   COLOR 0
  688.   PRINT "AHHH, HERES THE BUS"
  689.   LOCATE 5, 5
  690.   PRINT "HEY WAIT A MINUTE THATS"
  691.   LOCATE 7, 11
  692.   PRINT "NOT THE BUS!!!"
  693.   
  694. FOR TIMES = 1 TO 1
  695.     
  696.     LET SS1 = 78     '}
  697.     LET SS2 = 5      '} MIDDLE OF S SHIP
  698.     LET SS3 = 2      '}
  699.   
  700.     LET SS4 = 76   '}
  701.     LET SS5 = 4.9      '} TOP OF S  SHIP
  702.     LET SS6 = 80     '}
  703.     LET SS7 = 5.2      '}
  704.  
  705.   
  706.  
  707.  
  708.     LINE (SS4, SS5)-(SS6, SS7), 4, BF
  709.     CIRCLE (SS1, SS2), SS3, 5, , , .5
  710.     PAINT (SS1, SS2), 5
  711.  FOR COUNT = 1 TO 50
  712.  
  713.  
  714.  
  715. 'ERASE SPACE SHIP
  716.     CIRCLE (SS1, SS2), SS3, 0, , , .5
  717.     PAINT (SS1, SS2), 0
  718.     LINE (SS4, SS5)-(SS6, SS7), 0, BF
  719.  
  720.  
  721. '**************************DECREASE OR INCREASE******************************
  722.     LET SS1 = SS1 - .8    '} MIDDLE OF SHIP
  723.     LET SS2 = SS2 + .3    '}
  724.     LET SS3 = SS3 + .4    '}
  725.  
  726.     LET SS4 = SS4 - 1    '}
  727.     LET SS5 = SS5 + .7    '} BOTTOM OF SHIP
  728.     LET SS6 = SS6 - .6    '}
  729.     LET SS7 = SS7 + .6   '}
  730.   
  731.  
  732.  
  733.  
  734.     LINE (SS4, SS5)-(SS6, SS7), 4, BF
  735.     CIRCLE (SS1, SS2), SS3, 5, , , .5
  736.     PAINT (SS1, SS2), 5
  737. '******************************* CYCLE RESUMES ******************************
  738.     LINE (SS4, SS5)-(SS6, SS7), 4, BF
  739.     CIRCLE (SS1, SS2), SS3, 5, , , .5
  740.     PAINT (SS1, SS2), 5
  741.  NEXT COUNT
  742.  NEXT TIMES
  743.     SLEEP (3)
  744.  
  745.  
  746.  
  747.   LET XAS = 35
  748.   LET YAS = 40
  749.   LET XES = 35
  750.   LET YES = 40
  751.   LET COLR5 = 16
  752.   FOR COUNT = 1 TO 90
  753.   LINE (XAS, YAS)-(XES, YES), COLR5
  754.   LET XAS = XAS + .5
  755.   LET YAS = YAS + .5
  756.   LET XES = XES - .5
  757.   LET YES = YES + .5
  758.   LET COLR5 = COLR5 + .1
  759. NEXT COUNT
  760. '****************************************************************************
  761.  
  762.   SCREEN 7
  763.   COLOR 4, 0
  764.   VIEW (1, 1)-(318, 198), 0, 9
  765.   WINDOW SCREEN (1, 1)-(100, 100)
  766.   LET PI = 3.14159
  767.  
  768.   LINE (1.5, 65)-(99, 90), 2, BF    '] GRASS PAINT
  769.   LINE (1.5, 91)-(99, 99), 8, BF    '] ROAD
  770.   LET XB1 = 1.7
  771.   LET YB1 = 63
  772.   LET XEB1 = 1.7
  773.   LET YEB1 = 66
  774.   FOR COUNT = 1 TO 109
  775.   LINE (XB1, YB1)-(XEB1, YEB1), 10
  776.   LET XB1 = XB1 + .9
  777.   LET XEB1 = XEB1 + .9
  778.   NEXT COUNT
  779.  
  780.   LET XB2 = 1.7                     '] FRONT GRASS
  781.   LET YB2 = 89
  782.   LET XEB2 = 1.7
  783.   LET YEB2 = 91
  784.   FOR COUNT = 1 TO 109
  785.   LINE (XB2, YB2)-(XEB2, YEB2), 10
  786.   LET XB2 = XB2 + .9
  787.   LET XEB2 = XEB2 + .9
  788.   NEXT COUNT
  789.  
  790.   CIRCLE (80, 30), 15, 2              '] tree
  791.   PAINT (80, 30), 2                   ']
  792.   LINE (77.5, 46)-(82.5, 86), 6, BF   ']
  793.   CIRCLE (79, 59), 2, 0, , , 1.5
  794.   CIRCLE (79, 59), 1.4, 0, , , 1.5
  795.   CIRCLE (79, 59), .7, 0, , , 1.5
  796.  
  797.  
  798.  
  799.  
  800.   LINE (25, 60)-(51, 68), 6, BF       '] bench
  801.   LINE (51.5, 60)-(53, 68), 6, BF     ']
  802.   LINE (22, 75)-(24, 86), 6, BF       ']
  803.   LINE (26, 75)-(28, 80), 6, BF       ']
  804.                                       ']
  805.   LINE (48, 75)-(49.7, 86), 6, BF     ']
  806.   LINE (51.5, 66)-(53, 80), 6, BF     ']
  807.  
  808.   LINE (9, 47)-(10, 80), 8, BF        '] BUS POLE
  809.   LINE (3, 37)-(15.5, 47), 7, BF      '] SIGN
  810.   LOCATE 11, 3                        ']
  811.   COLOR 2                             ']
  812.   PRINT "BUS"                         ']
  813.  
  814.  
  815.   CIRCLE (20, 13), 2, 15              '] MOON
  816.   PAINT (20, 13), 15                  ']
  817.  
  818.   CIRCLE (10, 5), .2, 15              '] STARS
  819.   CIRCLE (5, 12), .1, 15              ']
  820.   CIRCLE (30, 14), .1, 15             ']
  821.   CIRCLE (45, 4), .2, 15              ']
  822.   CIRCLE (52, 10), .1, 15             ']
  823.   CIRCLE (55, 11), .1, 15             ']
  824.   CIRCLE (96, 5), .1, 15              ']
  825.  
  826.  
  827.   LET X = 24                          '] BENCH SEAT
  828.   LET Y = 69                          ']
  829.   LET XE = 53                         ']
  830.   LET YE = 72                         ']
  831.   FOR COUNT = 1 TO 15                 ']
  832.   LINE (X, Y)-(XE, YE), 1, BF         ']
  833.   LET X = X - .3                      ']
  834.   LET Y = Y + .2                      ']
  835.   LET XE = XE - .3                    ']
  836.   LET YE = YE + .2                    ']
  837.   NEXT COUNT                          ']
  838.  
  839.  
  840.   LET XG1 = 40
  841.   LET YG1 = 30
  842.   LET SG1 = 20
  843.   LET COLR = 5
  844.   FOR COUNT = 1 TO 65
  845.   CIRCLE (XG1, YG1), SG1, 5, , , .5
  846.   PAINT (XG1, YG1), 5
  847.   CIRCLE (XG1, YG1), SG1, 0, , , .5
  848.   PAINT (XG1, YG1), 0
  849.   LET XG1 = XG1 - .7
  850.   LET YG1 = YG1 - .4
  851.   LET SG1 = SG1 - .3
  852.   CIRCLE (XG1, YG1), SG1, 5, , , .5
  853.   PAINT (XG1, YG1), 5
  854.   NEXT COUNT
  855.  
  856.   CIRCLE (20, 13), 2, 15              '] MOON
  857.   PAINT (20, 13), 15                  ']
  858.  
  859.   SCREEN 13
  860.   COLOR 4
  861.   X1 = 270
  862.   Y1 = 150
  863.   Z5 = 0
  864. FOR COUNT = 1 TO 85
  865.   CIRCLE (X1, Y1), Z5, 8
  866.   Z5 = Z5 + .5
  867. NEXT COUNT
  868. FOR TIMES = 1 TO 1
  869.   X = 5
  870.   Y = 100
  871.   S = 30
  872.   C = 1
  873.   CIRCLE (X, Y), S, C, , , .5
  874.   PAINT (X, Y), C
  875. FOR COUNT = 0 TO 130
  876.   CIRCLE (X, Y), S, 0, , , .5
  877.   PAINT (X, Y), 0
  878.   C = C + 1
  879.   S = S - .2
  880.   X = X + 3
  881.   Y = Y - .4
  882.   CIRCLE (X, Y), S, C, , , .5
  883.   PAINT (X, Y), C
  884. NEXT COUNT
  885. NEXT TIMES
  886.  
  887. LOCATE 5, 5: PRINT "To Be Continued..."
  888. END
  889.  
  890.